00100	ARRAY F1(512);
00200	VARIABLE /X;
00250	RCDFLG←-1;
00300	SEG(F1);1 1 1 25 .5 26 .5 50 .1 51 .1 75 0 76 0 100;
00400	COMPILE;
00500	INSTRUMENT T;
00600	LINEN(P3,P4,P5,P6,F1,X);
00700	OUTA←OUTA+U1;
00800	END;
00900	FINISH;
01000	PLAY;T 0 .5 2000 .1 .14 1.5;T .5 .5 1000 .1 .14;T 1 .5 500 .1 .14;FINISH;